home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / typearea.sty < prev    next >
Text File  |  1995-11-25  |  4KB  |  121 lines
  1. % typearea.sty -- by Frank Neukam  (06 Jun 1992)
  2. % Extended Page-Size-Version 1.1 by Markus Kohm (25 Jul 1993)
  3.  
  4. \@ifundefined{mk@pagesize}{\def\mk@pagesize{DINA4}}{}
  5. \@namedef{psta@DINA3}{\typeout{Use pagesize DIN-A3}\ta@pw 297mm \ta@ph 420mm}
  6. \@namedef{psta@DINA4}{\typeout{Use pagesize DIN-A4}\ta@pw 210mm \ta@ph 297mm}
  7. \@namedef{psta@DINA5}{\typeout{Use pagesize DIN-A5}\ta@pw 148.5mm \ta@ph 210mm}
  8. \@namedef{psta@DINA6}{\typeout{Use pagesize DIN-A6}\ta@pw 105mm \ta@ph 148.5mm}
  9. \@namedef{psta@DINA3l}{\typeout{Use pagesize DIN-A3-Landscape}\ta@pw 420mm \ta@ph 297mm}
  10. \@namedef{psta@DINA4l}{\typeout{Use pagesize DIN-A4-Landscape}\ta@pw 297mm \ta@ph 210mm}
  11. \@namedef{psta@DINA5l}{\typeout{Use pagesize DIN-A5-Landscape}\ta@pw 210mm \ta@ph 148.5mm}
  12. \@namedef{psta@DINA6l}{\typeout{Use pagesize DIN-A6-Landscape}\ta@pw 148.5mm \ta@ph 105mm}
  13.  
  14. \newif\if@hincl
  15. \def\headincludeon{\@hincltrue}
  16. \def\headincludeoff{\@hinclfalse}
  17. \@hinclfalse
  18. \newdimen\ta@pw
  19. \newdimen\ta@ph
  20. \newdimen\ta@bcor
  21. \newcount\ta@div
  22. \newdimen\ta@hblk
  23. \newdimen\ta@vblk
  24. \newdimen\ta@temp
  25. \@nameuse{psta@\mk@pagesize}
  26. \def\typearea{\@ifnextchar [{\@typearea}{\@typearea[0mm]}}
  27. \def\@typearea[#1]#2{
  28.  \normalsize
  29.  \ta@bcor #1
  30.  \ta@div=#2
  31.  \ta@hblk \ta@pw
  32.  \advance \ta@hblk by -\ta@bcor
  33.  \divide\ta@hblk by \ta@div
  34.  \oddsidemargin -1in
  35.  \evensidemargin -1in
  36.  \if@twoside
  37.   \advance\oddsidemargin by \ta@hblk
  38.   \advance\oddsidemargin by \ta@bcor
  39.   \advance\evensidemargin by 2\ta@hblk
  40.  \else
  41.   \advance\oddsidemargin by 1.5\ta@hblk
  42.   \advance\oddsidemargin by \ta@bcor
  43.   \evensidemargin\oddsidemargin
  44.  \fi
  45.  \textwidth \ta@pw
  46.  \advance\textwidth by -\ta@bcor
  47.  \advance\textwidth by -3\ta@hblk
  48.  \headheight 15pt
  49.  \headsep 1.5\baselineskip
  50.  \ta@vblk \ta@ph
  51.  \divide\ta@vblk by \ta@div
  52.  \ta@temp \ta@ph
  53.  \advance\ta@temp by -3\ta@vblk
  54.  \if@hincl
  55.   \advance\ta@temp by -\headheight
  56.   \advance\ta@temp by -\headsep
  57.  \fi
  58.  \textheight \topskip
  59.  \@whiledim\textheight<\ta@temp
  60.   \do{\advance\textheight by \baselineskip}
  61.  \topmargin \ta@vblk
  62.  \advance\topmargin by -1in
  63.  \if@hincl \else
  64.   \advance\topmargin by -\headheight
  65.   \advance\topmargin by -\headsep
  66.  \fi
  67.  \footskip 3.5\baselineskip
  68.  \if@twoside
  69.   \marginparwidth 1.5\ta@hblk
  70.  \else
  71.   \marginparwidth \ta@hblk
  72.  \fi
  73.  \marginparsep 1cc
  74.  \marginparpush 0.45\baselineskip}
  75. \def\areaset{\@ifnextchar [{\@areaset}{\@areaset[0mm]}}
  76. \def\@areaset[#1]#2#3{
  77.  \normalsize
  78.  \ta@bcor #1
  79.  \textwidth #2
  80.  \textheight #3
  81.  \ta@hblk \ta@pw
  82.  \advance\ta@hblk by -\ta@bcor
  83.  \advance\ta@hblk by -\textwidth
  84.  \divide\ta@hblk by 3
  85.  \oddsidemargin -1in
  86.  \evensidemargin -1in
  87.  \if@twoside
  88.   \advance\oddsidemargin by \ta@hblk
  89.   \advance\oddsidemargin by \ta@bcor
  90.   \advance\evensidemargin by 2\ta@hblk
  91.  \else
  92.   \advance\oddsidemargin by 1.5\ta@hblk
  93.   \advance\oddsidemargin by \ta@bcor
  94.   \evensidemargin\oddsidemargin
  95.  \fi
  96.  \headheight 15pt
  97.  \headsep 1.5\baselineskip
  98.  \ta@vblk \ta@ph
  99.  \advance\ta@vblk by -\textheight
  100.  \divide\ta@vblk by 3
  101.  \if@hincl
  102.   \advance\textheight by -\headheight
  103.   \advance\textheight by -\headsep
  104.  \fi
  105.  \topmargin \ta@vblk
  106.  \advance\topmargin by -1in
  107.  \if@hincl \else
  108.   \advance\topmargin by -\headheight
  109.   \advance\topmargin by -\headsep
  110.  \fi
  111.  \footskip 3.5\baselineskip
  112.  \if@twoside
  113.   \marginparwidth 1.5\ta@hblk
  114.  \else
  115.   \marginparwidth \ta@hblk
  116.  \fi
  117.  \marginparsep 1cc
  118.  \marginparpush 0.45\baselineskip}
  119. \ifcase \@ptsize\relax \typearea{8} \or \typearea{10} \or \typearea{12} \fi
  120.  
  121.